<script>on mouseUphide menubarglobal delaylock screen -- this clears the screenunlock screen -- this clears the screen-- This section determines speed of CPU being usedput the ticks into startTimerepeat 1000end repeatput (the ticks - startTime) into delayif delay > 2 then put 0 into delayelse put 2 into delayrepeat until the mouse is downrepeat with i=1 to 11add 3 to igo to cd iwait delay ticksend repeatend repeatshow menubargo to cd 2end mouseUp-- Written by A. Craig Warp-- in 1989 as a demonstration of-- PICT animation. PICTs were-- created by using SWIVEL 3Don DynoDemoGlobal delay--XLoc, Yloc are the x,y coordinates of the upper left cornerput "1,2,3,4,5,6,7,8,9,9,9,9,9,5,4,3,2,1" into Seq1put "1,1,1,1,1,1,1,1,1" into Seq2put "1,2,3,4,5,8,9,10,11,12,13,14,15,16,15,14,13,12,13,14,15,16,17,"&¬"18,19,20,21,22,23,23,23,24,25,26,27" into Seq3put "27,28,29,30,31,32,33,34,34,34,33,32,31,30,29,28,27" into Seq4put "27,28,29,30,31,32,33,34,35,36,37,38,39,38,37,36,35,34,"&¬"33,33,33,34,35,36,37,38,39,40,41,42"into Seq5put Seq4 into Seq6put Seq4 into Seq7put "1,1,1,1,1,1,1,1" into Seq8put "42,41,40,39,38,37,36,35,34,33,33,33,"&¬"34,35,36,37,38,39,40,41,42" into Seq9put Seq9 into Seq10put Seq9 into Seq11put "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20" into Seq12put Seq12 into Seq13put 653 into nrepeat until the mouse is downput random(13) into Rnumdo "get Seq"&Rnumif Rnum > 11 thenrepeat with m = 1 to the number of items in itwait delay ticksGetPicture 500+m,0,65,209,343wait delay ticksGetPicture 600+(item m of it),251,0,513,128add 1 to nif n > 653 then put 651 into nwait delay ticksGetPicture n,194,191-Rnum,256,242-Rnumend repeatend ifrepeat with m = 1 to the number of items in itwait delay ticksGetPicture 500+(item m of it),0,65,209,343add 1 to nif n > 653 then put 651 into nwait delay ticksGetPicture n,194,191-Rnum,256,242-Rnumwait delay ticksend repeatend repeatend DynoDemo</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>22</top>
<right>512</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chubby Shadow</font>
<textSize>38</textSize>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<textHeight>50</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>Play to start AdHold down mouse to stop</text>